00100		SUBROUTINE READR(NNW)
01000		COMMON /EDGEC/ A0,A1,A2,A3,A4,A5,A6,A7,
01007		1 DEBUG,T(1),XP(1),YP(1),PARMAX,
01014		1 HALF,FILE,RR,COH,RX,RY,CL,SL,D,B,FOUND
01021
01028		DIMENSION LIST5(0/1000),LIST(6,1000)
01035		COMMON /LISTC/ LIST,LIST5,NEWEND,LO
01084		INTEGER FLINE,RSIDE,FILEN,FILE
01100		COMMON/JOMMAC/ILINE,JLINE,KSIDE,MSIDE,NEWZ
01200
01500	CC	LOGICAL FUNCTION ADMISS
01600	CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
02400		READ(1) FILEN,RR,ILINE,JLINE,KSIDE,MSIDE,NEWZ,
02500		1 ((LIST(I,N),I=1,6),N=1,NEWZ)
02700		IF(NEWZ.GE.1000)GO TO 252
02800		DO 335 I=NEWZ*6+1,6000
02900	335	LIST(I,1)=0
03000	252	NEWEND=NEWZ
03600		END